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102 350-1 984 1339553 COBRTL.SRCJCOBCANCEL 832; 1 = 
MODULE ne i 
oe = "1-014" ! FILE: COBCANCEL.B32 EDIT:LB1014 
= 


BEGIN 


ESSE S SIS IIT ITI TTT TTTTTTTTTTT rrr r iii ii iti titi tii ii iii iitiiiit 


'@ 

ie COPYRIGHT (c) 1978, 1980, 1982, 1984 6 

ie SIGITAL EQUIPMENT ¢ CORPORATION, MAYNARD. MASSACHUSETTS. 
ie ALL RIGHTS RESERVED. 


'e THIS fe herhe i. FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
!* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH bICENSE AND 


; NC OTIC $_ SOF TW 
:* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
: Taanstenneee NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


* 
a 
® 
* 
* 
© 
* 
* 
* 
® 
'@ * 
* 
* 
* 
* 
* 
* 
* 
* 
* 


Se Pt kk nt 


MEUM $9 ODNOUE WN S(O OONOUFS wn 


:* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
~ eORPORAT itu NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


ie DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
:* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


'@ 
SORA AAA AEEAAEEAAEAEEEEAERAAEREEEEEEEEEEE 
' 


ise 

FACILITY: COBOL SUPPORT 

ABSTRACT: This preperere closes all open files related to the program 
that is being cancelled, and restores any existing loca 
storage to its initial values. 


ENVIRONMENT: Vax-11 User Mode 


SssosoooooooooSSeosSS 


NOONE WN 0 OBNO UE WN HO OD NOAUE WN —O ODNOAU EWN OO ODNOU EWN OOONOU SW 
a tn kt a tt at tt I OOOO 


RS 
ea 
Tye 
wee 
me 
oe 
3s. CW 
7 i2 
eee 
; 4 
; § 
; 4 
4 
; 4 
; «§ 
; 4 
s 6 
; § 
: | 
Bae | 


i 
i 
i 
i 
i 
i 
i 
3 i 
318 AUTHOR: MLJ , CREATION DATE: 10-APR-1979 
Bey MODIFIED BY: 
ok i 1-001 = Original. MLJ 10-APR-1979 
004 i 1-002 = Added boilerplate and comments. RKR 18-JULY-1979 
rt: 1-005 - Reged allocation and deallocation of event flag (EF). 
ré i 1-008 - pec lore psects via macros. RKR 11-SEPT-79 
i 1-005 = Get image file Oot ini tone from ‘RTLLIB‘ 
rt i and psects from ‘RTLIN:RTLPSECT’ RKR 18-SEPT-79 
4 i 1-006 - Make it call COBSSRESTVA SC oteed of SYS SShESTVA. A. 24-SEPT-79 
50 i He = Signal COBS_NAMNOTLIN if COBSSF IND 0 NAN & {atte R 2-0CT-79 
51 i q- : - Status check and cosmetic changes. -0CT-7 
25 i 1-009 = Add code to close fil 138, shot the AF Bib dy has open 
i at this point. RKR 1 9 
bee 1-010 - aoe s grrer mggsoge on path where COBSSFINDNA returns a 0. 
B26 i 1-011 - Pheaned code for pcceps ing FAB from RAB. Changed signalling 
005 i behavior to signal only COBS_CANFAIL. 


a 


wr 
a A eb i a 


RKR 29-0CT-79 
1-012 - aeeee spowrect. UO 


aa - Added” EDIT tHelaerg tor *tnettin 


' <BLF /PAGE> 


6 Ohh 


ie} 


serie 
$s aaa 


14 = Added LIBSSTOP as external routine. 


SelM B08 Wen 
act ig om - Pati 


t§coscAnceL. a8; ;1 


teed 
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conscance 1$-Bep-1964 00:01:01 yanet BLiag-32 v4iQe74g. 


DOE '¢ 
f 0068 1 | SWITCHES 
7 if ; ‘ 
¢ 007 SWITCHES ADDRESSING_MODE (EXTERNAL = GENERAL, NONEXTERNAL = WORD_RELATIVE); 
74 007 '4 
75 0074 1 | LINKAGES 
? D075 1! -NONE 
7 aoe te 
7 007 
7 D078 '¢ 
007 


TABLE OF CONTENTS: 


ooc 


SSBLSEARRANLS 


a a aa a me at at ak a ek a tk ed a a = = 2 8s 1 1 as a a 


FORWARD ROUTINE 
COBSCANCEL : NOVALUE ; 


16 

00 } INCLUDE FILES 

38 ! NOTE this module cannot be in sharable Library. 

009 REQUIRE ‘RTILIN:RTLPSECT’; ' Macros for psects 

4 LIBRARY ‘RTLLIB'; ! Image file definitions 

1 REQUIRE "RTLIN:COBDEF'; ' COBOL specific RTL macros and Literals 

' MACROS 

06 ‘ -NONE 

3 !- 

6 

aa 
' EQUATED SYMBOLS 

a -NONE 
te 


i PSECT DECLARATIONS: 
DECLARE_PSECTS (COB) ; ! Declare psects for COBS facility 
‘4 


: EXTERNAL REFERENCES 


EXTERNAL ROUTINE 


LIBSSTOP:NOVALUE, ' Signal fatal error 
COBSSFIND NAME : ADDRESSING_MODE (GENERAL) , ! Find match for routine name 
LIBSGET EF: ADDRESSING MODE” (GENERAL) , ! Obtain an event flag 
LIBSFREE_EF: ADDRESSING MODE (GENERAL) , ' Return an event flag 
COBSSRESTVA : ADDRESSING_MODE (GENERAL) ; '\Restore virtual addrs 


RUVVSSRONSARAW=SSRLESRENVLSSSLESLIATLSSSELFSRATLS 


SOA dD HO DONO WM ODO WOU RUN oe 


ee ee a a ee eed td ot od = = 


'/from image file 


copcancet HfoBeoc19B 00:01:01 YAKGTT BL iage82 va. go7Kg. 


H ! 5 058 } EXTERNAL LITERAL 

: 1 5 66) | COBS_CANFAIL ! CANCEL failed 

: 1 1 COBS-FAIGET EF, i Failed to get an event flag 
5 } vets ! COBS_FATINTERR ; ! Fatal internal error 

: 131 0665 1 

3 U3e 666 1 CHANNEL : WORD; 


a 


a 


— oF 
co 
> 
2 
o 
mn 


Sep-1 Ax-11 8 Oils -32 v4.0 Page 5 
1b-ep-198% 00:01:0)  YAN=11 BLisge32 vé-0-742, 55 
GLOBAL ROUTINE COBSCANCEL(DESC,LLIST): NOVALUE= 


-—o 
28 


le¢ 

' FUNCTIONAL DESCRIPTION: 
This routine calls COBSS$FIND a to find the name of the pr eheek 

thee is to be cancelled. If the er is vanes COBSCANCE ecks 

r) 


PAAAAAAAAO 
SN SSIOOO 


pee ee lololololololololololo) 


4 
Ta , 
; 155 5 1 
3; 1 $ 1 
; % 0 1 
; 158 oS 
; #139 § 1! 
; 140 1! 
: 141 . Ba for open files so that they will be sed. t also checks if the 
: 136 $ 1! routine has local storage, so it can restore if to its initial 
$ 16 § 1! values. 
> 1446 6 1! 
3; «6145 of8 1 ! CALLING SEQUENCE: 
3 146 679 1! 
3 147 680 1! COBSCANCEL (desc.rt.ds, Llist.rr.r) 
3; «148 681 1! 
3; 1469 ret) 1 ! FORMAL PARAMETERS: 
3; 150 6835 1! 
: 13) pees ! DESC. rt.ds Address of descriptor for name 
: 138 bees : LLIST.rr.r Pointer to List of accessible local programs 
3s 155 0688 1 ! IMPLICIT INPUTS: 
3; 156 0689 1! 
s 157 0690 1! NONE 
3; 158 0691 1! 
3; 159 069 1 ! IMPLICIT OUTPUTS: 
; 160 0695 1! 
3: 161 0694 1! NONE 
3 166 0695 1! 
; 16 0696 1 ! ROUTINE VALUE: 
: 164 0697 1! 
3; «165 0698 1! NONE 
; 166 0699 1! 
s 167 0700 1 ! COMPLETION CODES: 
; 168 0701 1! 
: 169 0702 1! NONE 
; 170 0703 1! 
s 171 0704 1 ! SIDE EFFECTS: 
3 te 4 0705 1! 
. oF 0706 1! “Close any files that the CANCELed routine has open. 
3 «(174 0707 1! “Restores any local storage 
- tre 0708 1! 
: 176 0709 1 !-- 
3: 177 ory 1 
: 178 711 BEGIN 
: 179 aris 
; 180 071 LOCAL 
; 181 0714 ' Event po to use with atte 
; 182 0715 STATUS, i Status returned by COBSRESTV 
; 18 B716 Q: REF VECTOR, '\Address of counted block > 
: 184 071 '/RAB addresses 
: 185 ore RAB: REF BLOCK gente: ' A particular RAB address 
: 186 71 FAB: REF BLOCK (,BYTEJ, ' Its associated FAB address 
3 H+ 24 A 9 P: REF BLOCKL, BYTE): ! Address of name table entry 
3; 189 of ; BUILTIN 


10 
COBSCANCEL 1b-Se -1984 00:01:01 AX-11 Bliss-32 V4.0-74 Page 
itt 12-Sep-19 4 90:95:34 COBRTL. RCICOBCANCEL.B 2;1 . 
; 191 724 AP; 
; 136 725 
3 12? f § P = CALLG(.AP,COBSSF IND_NAME); ! Find routine name match 
; 195 7 8 IF .P NEQ 0 ! If NEQ 0, then match has been found 
3 138 7 THEN 
; 19 750 BEGIN ! Entry found 
; 198 731 
; 199 07 § 4+ 
: 4 4 Z Find out if he has any files open and if so, close them 
; 735 
; 08 $F $ Q = .PCCOBSA_NAM_FILES] ; ! Address of counted List of 
3 be 83 . ' RAB address (if any) 
; 206 0739 IF .Q NEQA 0 ! If it points non-zero assume 
; 207 0740 ! there are some 
> 208 0741 THEN 
; 209 bres 4 BEGIN ! files exist case 
; $i? 0745 4 INCR I FROM 1 TO .QC0) DO 
: 211 0744 5 BEGIN ! of closing loop 
: \¢ 0745 5 RAB = .QC.1) ; ! A RAB address 
; 1 0746 5 IF .RABCRABSW_ISI] NEQ 0 
; 14 0747 5§ HEN 
ae it) 0748 6 BEGI 
3; 26 0749 6 FAB = .RABCRABSL_FAB) ; !' Its FAB address 
3 sit 0750 6 If .FABCFABSW_IFTJ NEQ 0 ! If open 
3 18 B78) 2 THEN SCLOSE (FAB = .FAB) ; ! then close it 
3 $39 0788 4 END ; ! End of closing loop 
; BE B38 ; END ; 
; $6 0756 3 IF .PCCOBSL_NAM_LLEN] NEQ 0 ! Length of local storage for module 
> 226 0757 3 THEN 
; 225 0758 4 BEGIN ! It has local storage 
> 226 0759 & LOCAL 
3 ger 0760 4 INADR: VECTORC2); 
> 228 0761 4 
3 $$3 3766 4 '¢ ; 
3; <n 07635 4 ! Restore is image space. Load addresses of Segrnneny of local 
; $3 bree : storage for the module and of end of local storage for module. 
3 $ 5 0766 4 
3 876 4 eed = .PCCOBSA_NAM_LOCAL]; 
3 39 8708 ? INADR(1] = .PCCOBSA_NAM_LOCAL) + .PCCOBSL_NAM_LLEN] - 1; 
3 0796 4 t¢ : 
3 8 0771 4 ! Get an event ree number to use. If one was not obtained, 
3 9 O778 4 ! then invoke SIGNAL_STOP indicating this condition. 
se BM ‘ 
; 4@ 0775 4 IF ( NOT LIBSGET_EF (EF) ) THEN SIGNAL_STOP (COBS_FAIGET_EF) ; 
3 246 58 4 '¢ 
: 245 re 4 ' Restore virtual addresses. 
: og 779 4 te 
; 26 0780 4 


Kk 10 
COBSCANCEL 16-Sep-1984 00:01:01 AX-11 Bliss-32 V4.0-74 P 7 
tt = 360-198e 13:40: a COBRTL.SRCJCOBCANCEL .852;1 met (3) 


: 248 781 4 STATUS = COB S$RES STVACINADR, .CHANNEL, .EF); 
5 269 7 ; 4 IF NOT .STATUS THEN LIBSSTOP(COBS CANFAIL, 1, 
: 320 133 6 9 DESC, .SfATUS) ; 
: ¢ f ‘ ? j_Peallocate event flag number. 
: 4 787 4 
; 255 0788 4 IF ( NOT LIBSFREE_EF (EF) ) THEN SIGNAL_STOP (COBS_FATINTERR) ; 
; 26 0789 END; 
3; @ 0790 END 
; 258 0791 ELSE 
; 59 144 BEGIN ! Entry not found 
: 60 O793 SIGNAL_STOP (COBS_CANFAIL, 1, .DESC ); 
; 62 0795 1 END; ' End of routine COBSCANCEL 
TITLE COBSCANCEL 
-IDENT \1-014\ 
.PSECT _COBSDATA,NOEXE, PIC,2 
00000 CHANNEL:.BLKB 2 
.EXTRN LIBSSTOP COBSSE IND NAME 
“EXTRN LIBS Ter REE EF 
»EXTRN t OBSSRE Esty A, Lies ANF AIL 
-EXTRN COBS FAIGET WEF, toss. FATINTERR 
“EXTRN SYS$CLO 
-PSECT _COBSCODE.NOWRT, SHR, PIC,2 
01FC 00000 .ENTRY COBSCANCEL, Save R2,R3,R4,R5,R6,R7,R8 : 0667 
58 900000006 8F 00 00002 MOVL  #COBS_CANF ALL, RB ; 
57 000000006 00 i 00009 OV LIBSSTOP, R : 
5E 0C C2 00010 SUBL2 #12, SP : 
000000006 00 6C FA 00013 CALLG ass, COBS$F IND_NAME : 0726) 
52 50 DO OOO1A MOVL RO, : | 
03 12 0001D BNEQ ='1$ : 0728. 
0088 31 OOO1F BRW 7$ ; 
56 14 =A d9 0022 1$ MOVL 20(P), Q : 0736 
‘ 13 00026 BEQL 6 4$ : 0739 
D4 00028 CLRL i : 0743 
18 11 99 A BRB $ : | 
54 6643 D C 28 MOVL (Q)C1J, RAB > 0745. 
02 «AG : 00 TSTW g(RAB) : 0746 
12 99 BEQL $ : ! 
55 36 AS 00 000 MOVL $ 6U(RAB), FAB > 0749 | 
2 AS B5 00039 TSTW ¢(FAB) : 0750 | 
09 1 99 ¢ EQL $ : 
5 DD 9 PUSHL FAB : 0751 
000000006 99 01 FB 0004 CALLS #1, SYSSCLOSE : 
1 66 F 904 3$ AOBLEQ (Q5, I, 2$ : 0743. 
oc A p 4B 4$ TSTL 12¢P) : 0756. 
06 =A 10 ; D 0036 oovE FP) NADR : 0767 
52 10 5 0c AS C1 $08 ADDL3 1363): iS R2 > 0768 
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yt 


rs 


08 AE FF a2 9 5 MOVAB “1(R2), INADR+4 
000000006 f F 6 CALLS #1, LIBSGET_EF 
O€ 6 BLBS)sSseaR 
000000006 8F ODD 06 PUSHL #coas FAIGET_EF 
67 1 FB CALLS #1, LYB$STOP 
6€ DD 00075 5$: PUSHL 
7E 00000000" EF 3¢ 007 MOVZWL CHANNEL, (SP) 
C AE F OO007E PUSHAB INAD 
000000006 00 g FB 0081 CALLS #3, COBSSRESTVA 
0c 0 £8 00088 BLBS STATUS, 6$ 
50 OD Beae PUSHL STATUS 
04 AC OD D PUSHL DES 
gi DD 00090 PUSHL #1 
8 DD 00092 PUSHL R8 
67 04 FB 00094 CALLS #4, LIBSSTOP 
5E DD 00097 68: PUSHL 
000000006 00 gi FB 90099 CALLS #1, LIBSFREE_EF 
000000006 8F DD 000A3 PUSHL #COB$_FATINTERR 
67 01 FB O09 CALLS #1, LIBSSTOP 
04 AC DD OOOAD 7S: PUSHL DESC 
01 DD 00080 PUSHL #1 
58 DD 90082 PUSHL RS 
67 03 FB 00084 CALLS #3, LIBSSTOP 
04 00087 8$: RET 
; Routine Size: 184 bytes, Routine Base: _COBSCODE + 0000 


+ ad 
- 
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w 


Routine Size: 


DIDI a a da a i i a a a a a a dd od 


3 


15 bytes, 


ROUTINE COBSSCANC_INIT: NOVALUE= 


ve 
FUNCTIONAL DESCRIPTION: 


Called as LIBSINITIALIZE routine whenever the COBSCANCEL module is loaded, 
with the standard CLI activation argument list. It saves the channel 
Tits"ciTt Be'needed by: fhe’ COSBCANEEE rourine.ow™ Varvanle CHAMEL. 
FORMAL PARAMETERS: 

NONE 
IMPLICIT INPUTS: 

NONE 
IMPLICIT OUTPUTS: 

NONE 
ROUTINE VALUE: 

NONE 
COMPLETION CODES: 

NONE 
SIDE EFFECTS: 

NONE 


BEGIN 
BUILTIN 
AP; 


are, = .BLOCKC.BLOCKC.AP, CLISA_IMGFILED; , BYTE), IFDSW_CHAN; , BYTE); 


0000 00000 COBSSCANC i b 


-WO0 Save nothing 
50 8 AC D0 pO0e MOVL 16(AP), RO 
00000000" EF 0 AO v4 006 MOVW 8(RO), CHANNEL 
4 OO00E RET 


Routine Base: _COBSCODE + 0088 


SCANCEL 
14 
09 2 
10 te 1 
13 te ji’ 
18 OB«5 1 
14 084, 1 
15 9 ’ 4 PSECT 
1 § 1 
1 0849 1 
i 8520 1 
1 os fn 
0 bees 1 
1 0853 1 OWN 
; 0854 1 
0855 1 
$¢ 0856 1 
5 0857 1 EXTERNAL 
26 0858 #1 
e7 0859 1 
28 0860 1 
$3 0861 1 END 
0862 0 ELUDOM 
Name 
_COBSDATA 
COBSCODE 
CIBSINITIALIZE 
File 


~-$255$DUA28: CSYSLIBILIB.L32;1 


N 1 
16-Sep-1984 
a ae 


; The following is a contribution to LIBSINITIALIZE 


-PSECT LIBSINITIALIZE ,NOWRT ,NOEXE, 


72 FP0:4 


ONCATENATE, Ft 


AD, NOWRIT 


0B 
E) 


AX-11 Oi tegen re ptt mle 
COBRTL.SRCJCOBCANCEL .B52;1 


AL, 


-ADDRESS COBSSCANC_INIT 


-EXTRN LIBSINITIALIZE 
-EXTRN LIBSSTOP 


= samme 4! ha 
(ALIGN(2), NOPIC, C 
NOSHARE, NOEXECUTE, RE 
A: INITIAL (COBSSCANC_INIT); 
ROUTINE 
LIBSINITIALIZE; 
00000000° 00000 A: 
PSECT SUMMARY 
Bytes Attributes 
2 NOVEC, WRT, RD ,NOEXE,NOSHR, 
199 NOVEC,NOWRT, RD, EXE, SHR, 
4 NOVEC,NOWRT, RD ,NOEXE,NOSHR, 


Library Statistics 


Total 
18619 


Symbols 
Loaded 
9 


0 


LCL, REL, 
LCL. REL, 
GBL, REL, 


Pages 
Mapped 


1000 


Processing 
Time 


00:01.4 


GBL 2 


hi cae HEsbeoctage g0:0):01 YY Shes yete7s 2:1 ree hh 


COMMAND QUALIFIERS 
BLISS/CHECK=(FIELD, INITIAL ,OPTIMIZE)/NOTRACE/LIS=L1S$:COBCANCEL /0BJ=0BJ$ : COBCANCEL MSRC$: COBCANCEL/UPDATE=(ENHS$: COBCANCEL 


; Run Ti 


Size: 199 i ; 6 data bytes 


; Memo 110 pages 
; ee A ee Complete? 


Sete Ge Ge Ge Ge Ge 
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